Private Sub Form_Load()
 Dim s, t As String
 Dim n%
 s = InputBox("Input a string")
 t = Microsoft.VisualBasic.Left(s, 1)
 n = Len(s)
 If n > 20 Then
     Debug.Print("Input too long")
 ElseIf n < 4 Then
     Debug.Print("Input too short")
 ElseIf t >= "0" And t <= "9" Or t = "_" Then
     Debug.Print("Can't start with a numeric or underline")
 Else
     Console.WriteLine("string's length={0}", n)
 End If
End Sub



